home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / ghostscript / 8.64 / Resource / Init / gs_ttf.ps < prev    next >
Encoding:
Text File  |  2009-04-17  |  76.7 KB  |  1,968 lines
  1. %    Copyright (C) 1996-2003 Artifex Software, Inc.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: gs_ttf.ps 9296 2008-12-18 23:37:32Z alexcher $
  17. % Support code for direct use of TrueType fonts.
  18. % (Not needed for Type 42 fonts.)
  19.  
  20. % Note that if you want to use this file without including the ttfont.dev
  21. % option when you built Ghostscript, you will need to load the following
  22. % files before this one:
  23. %    lib/gs_mgl_e.ps
  24. %    lib/gs_mro_e.ps
  25. %    lib/gs_wan_e.ps
  26.  
  27. % Thanks to B. Jackowski and GUST (the Polish TeX Users' Group) for
  28. % the glyf-splitting code.
  29.  
  30. % ---------------- Font loading machinery ---------------- %
  31.  
  32. % Augment the FONTPATH machinery so it recognizes TrueType fonts.
  33.  
  34. /.scanfontheaders where {
  35.   pop /.scanfontheaders [
  36.    .scanfontheaders aload pop (\000\001\000\000*) (true*)
  37.   ] def
  38. } if
  39.  
  40. % <file> <key> .findfontvalue <value> true
  41. % <file> <key> .findfontvalue false
  42. % Closes the file in either case.
  43. /.findnonttfontvalue /.findfontvalue load def
  44. /.findfontvalue {
  45.   1 index read {
  46.     2 index 1 index unread
  47.     % beginning with binary 0 or 't' (TrueType), or 'O' (OpenType)
  48.     dup 0 eq 1 index (O) 0 get eq or exch (t) 0 get eq or {
  49.         % If this is a font at all, it's a TrueType font.
  50.       dup /FontType eq {
  51.         pop closefile 42 true
  52.       } {
  53.         dup /FontName eq { pop .findttfontname } { pop closefile false } ifelse
  54.       } ifelse
  55.     } {
  56.         % Not a TrueType font.
  57.       .findnonttfontvalue
  58.     } ifelse
  59.   } { pop closefile false } ifelse
  60. } bind def
  61.  
  62. % <file> .findttfontname <fname> true
  63. % <file> .findttfontname false
  64. % Closes the file in either case.
  65. /.findttfontname {
  66.   //true 0 .loadttfonttables
  67.   tabdict /name .knownget {
  68.     dup 8 getu32 f exch setfileposition
  69.     12 getu32 string f exch readstring pop
  70.     dup
  71.     6 findname not {
  72.       4 findname    % Try FullName
  73.     } {
  74.       exch pop true
  75.     }
  76.     ifelse
  77.   } {
  78.     false
  79.   } ifelse
  80.   f closefile end end
  81. } bind def
  82.  
  83. % Load a font file that might be a TrueType font.
  84.  
  85. /tt_tag_dict << <00010000> 0 (true) 0 (typ1) 0 (ttcf) 0 >> readonly def
  86.  
  87. % <file> .loadfontfile -
  88. /.loadnonttfontfile /.loadfontfile load def
  89. /.loadfontfile {
  90.   dup (1234) .peekstring { //tt_tag_dict exch known } { //false } ifelse {
  91.         % If this is a font at all, it's a TrueType font.
  92.     .loadttfont pop
  93.   } {
  94.         % Not a TrueType font.
  95.     .loadnonttfontfile
  96.   } ifelse
  97. } bind def
  98.  
  99. currentdict /tt_tag_dict .undef
  100.  
  101. % ---------------- Automatic Type 42 generation ---------------- %
  102.  
  103. % Load a TrueType font from a file as a Type 42 PostScript font.
  104. % The thing that makes this really messy is the handling of encodings.
  105. % There are 2 interacting tables that affect the encoding:
  106. %       'cmap' provides multiple maps from character codes to glyph indices
  107. %       'post' maps glyph indices to glyph names (if present)
  108. % What we need to get out of this is:
  109. %       Encoding mapping character codes to glyph names
  110. %         (the composition of cmap and post)
  111. %       CharStrings mapping glyph names to glyph indices
  112. %         (the inverse of post)
  113. % If the post table is missing, we have to take a guess based on the cmap
  114. % table.
  115.  
  116. /.loadttfontdict 50 dict dup begin
  117.  
  118. /orgXUID AladdinEnterprisesXUID def
  119. /maxstring 32764 def    % half the maximum length of a PostScript string,
  120.             % must be a multiple of 4 (for hmtx / loca / vmtx)
  121.  
  122. /.invert_encoding   % <array> invert_encoding <dict>
  123. { dup 256 dict exch
  124.   0 exch 1 exch length 1 sub {     % [] <> i
  125.     dup 3 index exch get           % [] <> i v
  126.     dup /.notdef ne {
  127.       exch 2 index 2 index .knownget {
  128.         dup type /arraytype eq {
  129.       [ exch aload pop counttomark 2 add -1 roll ]
  130.         } {
  131.       exch 2 array astore
  132.         } ifelse
  133.       } if 2 index 3 1 roll put
  134.     } {
  135.       pop pop
  136.     } ifelse
  137.   } for
  138.   exch pop
  139. } bind def
  140.  
  141. % Make /MacRomanEncodingForTrueType including additional
  142. % characters in Mac OS Roman encoding, which is missing
  143. % in /MacRomanEncoding. See PDF spec 1.7, p. 431 or
  144. % "Inside Macintosh: Text" 1-55, Figure 1-36.
  145. % This is useful to exploit the glyphs via Apple Roman
  146. % TrueType cmap subtable, but not appropriate for information
  147. % interchange.
  148.  
  149. /MacRomanEncodingForTrueType
  150.   /MacRomanEncoding .findencoding
  151.   dup length array copy
  152.   <<
  153.     /notequal    173
  154.     /infinity    176
  155.     /lessequal    178
  156.     /greaterequal    179
  157.     /partialdiff    182
  158.     /summation    183
  159.     /product    184
  160.     /pi        185
  161.     /integral    186
  162.     /Omega        189
  163.     /radical    195
  164.     /approxequal    197
  165.     /Delta        198
  166.     /lozenge    215
  167.     /Euro        219
  168.     /apple        240
  169.   >> {
  170.     TTFDEBUG { (Extend MacRomanEncodingForTrueType for TrueType: ) =only } if
  171.  
  172.     % check /.notdef to avoid overwriting
  173.     2 index 1 index get dup /.notdef eq {
  174.       TTFDEBUG { (insert /) =only 2 index =only ( @ ) =only 1 index == } if
  175.       pop
  176.       exch 2 index 3 1 roll put
  177.     } {
  178.       TTFDEBUG { (cannot insert /) =only 2 index =only ( @ ) =only 1 index =only ( used for ) =only dup == } if
  179.       pop
  180.       pop pop
  181.     } ifelse
  182.   } forall
  183.   aload pop
  184.   256 packedarray
  185.   5 1 index .registerencoding
  186. .defineencoding
  187.  
  188. % Define the Macintosh standard mapping from characters to glyph indices.
  189. /MacRomanEncoding dup .findencoding def
  190. /MacGlyphEncoding dup .findencoding def
  191. /MacRomanEncodingForTrueType dup .findencoding def
  192.  
  193. % Invert the MacRomanEncoding.
  194. /.romanmacdict MacRomanEncodingForTrueType .invert_encoding def
  195. /.latin1isodict ISOLatin1Encoding .invert_encoding def
  196.  
  197. % Define remapping for misnamed glyphs in TrueType 'post' tables.
  198. % There are probably a lot more than this!
  199. % Also see /postalias table below.
  200. /postremap mark
  201.   /Eoverdot /Edotaccent
  202.   /eoverdot /edotaccent
  203. .dicttomark readonly def
  204.  
  205. % Array used for fast pre-filling of cmap array
  206. /.array1024z [ 1024 { 0 } repeat ] def
  207.  
  208. % ---- Utilities ---- %
  209.  
  210. % Define a serial number for creating unique XUIDs for TrueType fonts.
  211. % We used to use the checkSumAdjustment value from the font, but this is
  212. % not reliable, since some fonts don't set it correctly.
  213. % Note that we must do this in a string to make it immune to save/restore.
  214. /xuidstring <80000000> def
  215. /curxuid {        % - curxuid <int>
  216.   0 xuidstring { exch 8 bitshift exch add } forall
  217. } bind def
  218. /nextxuid {        % - nextxuid -
  219.   3 -1 0 {
  220.     xuidstring 1 index 2 copy get dup 255 ne {
  221.       1 add put pop exit
  222.     } if pop 0 put pop
  223.   } for
  224. } bind def
  225.  
  226. % <string> <index> getu16 <integer>
  227. /getu16 {
  228.   2 copy get 8 bitshift 3 1 roll 1 add get add
  229. } bind def
  230.  
  231. % <string> <index> gets16 <integer>
  232. /gets16 {
  233.   getu16 16#8000 xor 16#8000 sub
  234. } bind def
  235.  
  236. % <string> <index> getu32 <integer>
  237. /getu32 {
  238.   2 copy getu16 16 bitshift 3 1 roll 2 add getu16 add
  239. } bind def
  240.  
  241. % <string> <index> gets32 <integer>
  242. /gets32 {
  243.   2 copy gets16 16 bitshift 3 1 roll 2 add getu16 add
  244. } bind def
  245.  
  246. % <string|array> <index> getu16 <integer>
  247. /getu16a {
  248.   2 getinterval_from_stringarray 0 getu16
  249. } bind def
  250.  
  251. % <string|array> <index> gets16 <integer>
  252. /gets16a {
  253.   2 getinterval_from_stringarray 0 gets16
  254. } bind def
  255.  
  256. % <string|array> <index> getu32a <integer>
  257. /getu32a {
  258.   4 getinterval_from_stringarray 0 getu32
  259. } bind def
  260.  
  261. % <string|array> <index> gets32a <integer>
  262. /gets32a {
  263.   4 getinterval_from_stringarray 0 gets32
  264. } bind def
  265.  
  266. 16#ffffffff 0 gt {  % 64-bit sign extension
  267.   { /curxuid /gets32 /gets32a} {
  268.     mark 1 index load aload pop { 16#80000000 xor 16#80000000 sub } aload pop
  269.     .packtomark cvx def
  270.   } bind forall
  271. } if
  272.  
  273. % <string> <index> <integer> putu16 -
  274. /putu16 {
  275.   3 copy -8 bitshift put
  276.   exch 1 add exch 16#ff and put
  277. } bind def
  278.  
  279. % <string> <index> <integer> putu32 -
  280. /putu32 {
  281.   3 copy -16 bitshift putu16
  282.   exch 2 add exch 16#ffff and putu16
  283. } bind def
  284.  
  285. % <nametable> <nameid> findname <string> true
  286. % <nametable> <nameid> findname false
  287. /findname {
  288.   TTFDEBUG { (findname: ) print dup =only  } if
  289.   false 3 1 roll
  290.   1 index length 0 gt {    % check for zero length name table 
  291.     0 1 3 index 2 getu16 1 sub {
  292.         % Stack: false table id index
  293.       12 mul 6 add 2 index exch 12 getinterval
  294.       dup 6 getu16 2 index eq {
  295.           % We found the name we want.
  296.     exch pop
  297.           % Stack: false table record
  298.     dup 10 getu16 2 index 4 getu16 add
  299.     1 index 8 getu16 4 -1 roll 3 1 roll
  300.         3 copy add 1 index length
  301.         le {
  302.           pop
  303.           getinterval exch
  304.           % Stack: false string record
  305.           % Check for 8- vs. 16-bit characters.
  306.       is2byte { true } { dup is2byte2 } ifelse { string2to1 } if true null 4 -1 roll exit
  307.         } {
  308.           pop pop pop pop
  309.           false
  310.           exit
  311.         } ifelse
  312.       } if pop
  313.     } for
  314.   } if
  315.   pop pop
  316.   TTFDEBUG {
  317.     dup { ( = ) print 1 index == } { ( not found) = } ifelse
  318.   } if
  319. } bind def
  320.  
  321. % <namerecord> is2byte <bool>
  322. /is2byte {
  323.   dup 0 getu16 {
  324.     { pop true }        % Apple Unicode
  325.     { pop false }        % Macintosh Script manager
  326.     { 1 getu16 1 eq }        % ISO
  327.     { 1 getu16 1 eq }        % Microsoft
  328.   } exch get exec
  329. } bind def
  330.  
  331. % <string> is2byte2 <bool>
  332. /is2byte2 {
  333.   dup length 
  334.   dup 2 mod 0 ne {
  335.     pop pop false
  336.   } {            % s l
  337.     true exch   % s b l
  338.     1 sub 0 exch 2 exch {
  339.       2 index exch get 0 ne {
  340.         pop false exit
  341.       } if
  342.     } for
  343.     exch pop
  344.   } ifelse
  345. } bind def
  346.  
  347. % <string2> string2to1 <string>
  348. /string2to1 {
  349.   dup length 2 idiv string dup
  350.   0 1 3 index length 1 sub {
  351.     3 index 1 index 2 mul 1 add get put dup
  352.   } for pop exch pop
  353. } bind def
  354.  
  355. % Each procedure in this dictionary is called as follows:
  356. %       <encodingtable> proc <glypharray>
  357. /cmapformats mark
  358.   0 {        % Apple standard 1-to-1 mapping.
  359.     6 256 getinterval_from_stringarray
  360.     mark 0 3 -1 roll
  361.     { 1 index 1 add } forall pop
  362.     .dicttomark
  363.   } bind
  364.   2 {        % Apple 16bit CJK (ShiftJIS etc)
  365.  
  366.     % /sHK_sz        subHeaderKey_size    % 1 * uint16
  367.     % /sH_sz        subHeader_size        % 4 * uint16
  368.     % /sH_len        subHeader_length
  369.     % /cmapf2_tblen    total table length
  370.     % /cmapf2_lang    language code (not used)
  371.     % /sHKs        subHeaderKeys
  372.  
  373.     /sHK_sz 2 def
  374.     /sH_sz 8 def
  375.     dup 2 getu16a /cmapf2_tblen exch def
  376.  
  377.     dup 4 getu16a /cmapf2_lang exch def
  378.  
  379.     dup 6 256 sHK_sz mul getinterval_from_stringarray /sHKs exch def
  380.  
  381.     0        % initialization value for /sH_len
  382.     0 1 255 {
  383.        sHKs exch
  384.        2 mul getu16a
  385.        1 index    % get current max
  386.        1 index    % get current subHeaderKey
  387.        lt {exch} if pop
  388.     } for
  389.     /sH_len exch def
  390.  
  391.     dup 6 256 sHK_sz mul add
  392.     cmapf2_tblen 1 index sub getinterval_from_stringarray
  393.     /sH_gIA exch def
  394.  
  395.     /cmapf2_glyph_array 0 dict def
  396.  
  397.     /.cmapf2_putGID {
  398.         /cmapf2_ch cmapf2_ch_hi 8 bitshift cmapf2_ch_lo add def
  399.         firstCode cmapf2_ch_lo le
  400.         cmapf2_ch_lo firstCode entryCount add lt
  401.         and { % true: j is inside
  402.             sH_offset idRangeOffset add        % offset to gI
  403.             cmapf2_ch_lo firstCode sub 2 mul    % rel. pos. in range
  404.             add 6 add                % offset in sH_gIA
  405.             sH_gIA exch getu16a
  406.             dup 0 gt { %
  407.                 idDelta add
  408.                 cmapf2_glyph_array exch cmapf2_ch exch put
  409.             } {
  410.                 pop
  411.                 % cmapf2_glyph_array cmapf2_ch 0 put
  412.             } ifelse
  413.         } {   % false: j is outside
  414.             % cmapf2_glyph_array cmapf2_ch 0 put
  415.         } ifelse
  416.     } def
  417.  
  418.     16#00 1 16#ff { % hi_byte scan
  419.         /cmapf2_ch_hi exch def
  420.         sHKs cmapf2_ch_hi sHK_sz mul getu16a
  421.         /sH_offset exch def
  422.         sH_gIA sH_offset sH_sz getinterval
  423.             dup 0 getu16a /firstCode exch def
  424.             dup 2 getu16a /entryCount exch def
  425.             dup 4 gets16a /idDelta exch def
  426.             dup 6 getu16a /idRangeOffset exch def
  427.         pop
  428.         sH_offset 0 eq {
  429.            /cmapf2_ch_lo cmapf2_ch_hi def
  430.            /cmapf2_ch_hi 0 def
  431.            .cmapf2_putGID
  432.         } {
  433.            16#00 1 16#ff { % lo_byte scan
  434.                /cmapf2_ch_lo exch def
  435.                .cmapf2_putGID
  436.            } for
  437.         } ifelse
  438.      } for
  439.      pop
  440.      cmapf2_glyph_array
  441.   } bind
  442.   4 {        % Microsoft/Adobe segmented mapping.
  443.     /etab exch def
  444.     /nseg2 etab 6 getu16a def
  445.     14 /endc etab 2 index nseg2 getinterval_from_stringarray def
  446.         % The Apple TrueType documentation omits the 2-byte
  447.         % 'reserved pad' that follows the endCount vector!
  448.     2 add
  449.     nseg2 add /startc etab 2 index nseg2 getinterval_from_stringarray def
  450.     nseg2 add /iddelta etab 2 index nseg2 getinterval_from_stringarray def
  451.     nseg2 add /idroff etab 2 index nseg2 getinterval_from_stringarray def
  452.         % The following hack allows us to properly handle
  453.         % idiosyncratic fonts that start at 0xf000:
  454.     pop
  455.     /firstcode startc 0 getu16a 16#ff00 and dup 16#f000 ne { pop 0 } if def
  456.     /putglyph {
  457.       glyphs code 3 -1 roll put /code code 1 add def
  458.     } bind def
  459.         % Do a first pass to compute the size of the glyphs array.
  460.     /numcodes 0 def
  461.     /glyphs 0 dict def
  462.     0 0 2 nseg2 3 sub {
  463.         % Stack: /glyphs numglyphs i2
  464.       /i2 exch def
  465.       /scode startc i2 getu16a def
  466.       /ecode endc i2 getu16a def
  467.       numcodes scode firstcode sub
  468.         % Hack for fonts that have only 0x0000 and 0xf000 ranges
  469.       %dup 16#e000 ge { 255 and } if
  470.       % the previous line is obstructive to CJK fonts, so it was removed
  471.       exch sub 0 .max ecode scode sub 1 add add
  472.       exch 1 index add exch
  473.       numcodes add /numcodes exch def
  474.     } for pop
  475.  
  476.         % Now fill in the array.
  477.     /numcodes 0 def /code 0 def
  478.     0 2 nseg2 3 sub {
  479.       /i2 exch def
  480.       /scode startc i2 getu16a def
  481.       /ecode endc i2 getu16a def
  482.       numcodes scode firstcode sub
  483.         % Hack for fonts that have only 0x0000 and 0xf000 ranges
  484.       %dup 16#e000 ge { 255 and } if
  485.       % the previous line is obstructive to CJK fonts, so it was removed
  486.       exch sub 0 .max dup /code exch code exch add def
  487.       ecode scode sub 1 add add numcodes add /numcodes exch def
  488.       /delta iddelta i2 gets16a def
  489.       TTFDEBUG {
  490.     (scode=) print scode =only
  491.     ( ecode=) print ecode =only
  492.     ( delta=) print delta =only
  493.     ( droff=) print idroff i2 getu16 =
  494.       } if
  495.       idroff i2 getu16a dup 0 eq {
  496.     pop scode delta add 65535 and 1 ecode delta add 65535 and
  497.     { putglyph } for
  498.       } {    % The +2 is for the 'reserved pad'.
  499.         /gloff exch 14 nseg2 3 mul add 2 add i2 add add def
  500.         0 1 ecode scode sub {
  501.       2 mul gloff add etab exch getu16a
  502.       dup 0 ne { delta add 65535 and } if putglyph
  503.     } for
  504.       } ifelse
  505.     } for glyphs /glyphs null def    % for GC
  506.   } bind
  507.   6 {        % Single interval lookup.
  508.     dup 6 getu16a /firstcode exch def
  509.     dup 8 getu16a /ng exch def
  510.     firstcode ng add dict
  511.         % Stack: tab array
  512.         % Fill elements 0 .. firstcode-1 with 0
  513.     0 1 firstcode 1 sub { 2 copy 0 put pop } for
  514.     dup 
  515.         % Stack: tab dict dict
  516.         % Fill elements firstcode .. firstcode+nvalue-1 with glyph values
  517.     0 1 ng 1 sub {
  518.       dup firstcode add exch
  519.       2 mul 10 add 4 index exch getu16a 3 copy put pop pop
  520.     } for pop exch pop
  521.   } bind
  522. .dicttomark readonly def                % cmapformats
  523.  
  524. % <cmaptab> cmaparray <glypharray>
  525. /cmaparray {
  526.   dup 0 getu16a cmapformats exch .knownget {
  527.     TTFDEBUG {
  528.       (cmap: format ) print 1 index 0 getu16a = flush
  529.     } if exec
  530.   } {
  531.     (Can't handle format ) print 0 getu16a = flush
  532.     mark 0 1 255 { dup } for .dicttomark
  533.   } ifelse
  534.   TTFDEBUG {
  535.     (cmap: length=) print dup length = dup ===
  536.   } if
  537. } bind def
  538.  
  539. /get_from_stringarray % <array|string> <offset> get_from_stringarray <int>
  540. { 1 index type /stringtype eq {
  541.     get
  542.   } {
  543.     exch {                % o ()
  544.       2 copy length ge {
  545.         length sub
  546.       } {
  547.         exch get exit
  548.       } ifelse
  549.     } forall
  550.   } ifelse
  551. } bind def
  552.  
  553. /getinterval_from_stringarray % <array|string> <offset> <length> getinterval_from_stringarray <string>
  554. { % May allocate a string in VM.
  555.   2 index type /stringtype eq {
  556.     getinterval
  557.   } {
  558.     dup 65535 le { 
  559.       string exch 0                                 % [] s o p
  560.       4 3 roll {                                    % s o p Si
  561.         dup length                                  % s o p Si lSi
  562.         dup 4 index lt {
  563.           3 index exch sub                          % s o p Si o'
  564.           exch pop 3 1 roll exch pop                % s o' p
  565.         } {                                         % s o p Si lSi
  566.           dup 3 1 roll                              % s o p lSi Si lSi
  567.           4 index sub                               % s o p lSi Si lSi-o
  568.           5 index length 4 index sub                % s o p lSi Si lSi-o ls-p
  569.           2 copy gt { exch } if pop                 % s o p lSi Si minl
  570.           dup 3 1 roll                              % s o p lSi minl Si minl
  571.           5 index exch getinterval                  % s o p lSi minl from
  572.           5 index 4 index 3 index                   % s o p lSi minl from s p minl
  573.           getinterval                               % s o p lSi minl from to
  574.           copy pop                                  % s o p lSi minl
  575.           exch pop add exch pop 0 exch              % s 0 p'
  576.           dup 3 index length ge { exit } if
  577.         } ifelse
  578.       } forall
  579.       pop pop                                       % s
  580.     } {
  581.       [ 4 1 roll
  582.         {
  583.           dup 0 eq {
  584.             pop pop pop exit
  585.           } if 
  586.           3 copy 
  587.           dup 65535 ge {
  588.             pop 65535
  589.           } if
  590.           getinterval_from_stringarray 4 1 roll
  591.           3 index length sub
  592.           exch
  593.           3 index length add
  594.           exch
  595.         } loop
  596.       ]
  597.     } ifelse
  598.   } ifelse
  599. } bind def
  600.  
  601. /string_array_size  % <array|string> string_array_size <int>
  602. { dup type /stringtype eq {
  603.     length
  604.   } { 
  605.     0 exch { length add } forall
  606.   } ifelse
  607. } bind def
  608.  
  609. % Each procedure in this dictionary is called as follows:
  610. %       posttable <<proc>> glyphencoding
  611. /postformats mark
  612.   16#00010000  {    % 258 standard Macintosh glyphs.
  613.     pop MacGlyphEncoding
  614.   }
  615.   16#00020000  {    % Detailed map, required by Microsoft fonts.
  616.     dup dup type /arraytype  eq { 0 get } if length 36 lt {
  617.       TTFDEBUG { (post format 2.0 invalid.) = flush } if
  618.       pop [ ]
  619.     } {
  620.       /postglyphs exch def
  621.       /post_first postglyphs dup type /arraytype eq { 0 get } if def
  622.       post_first 32 getu16 /numglyphs exch def
  623.       /glyphnames numglyphs 2 mul 34 add def
  624.       % Build names array in the order they occur in the 'post' table
  625.       /postpos glyphnames def
  626.       /total_length postglyphs //string_array_size exec def
  627.       numglyphs array 0 1 numglyphs 1 sub {
  628.     postpos total_length ge {
  629.           % Fill the rest with .notdef
  630.           1 numglyphs 1 sub { 1 index exch /.notdef put } for
  631.           exit
  632.         } if
  633.     % No name available, /postnames will be defined as an empty
  634.     % array and the glyph won't get a name attached.
  635.     postglyphs postpos //get_from_stringarray exec
  636.         postglyphs postpos 1 add 2 index //getinterval_from_stringarray exec cvn
  637.     exch postpos add 1 add /postpos exch def
  638.         2 index 3 1 roll
  639.         put
  640.       } for
  641.       /postnames exch def
  642.  
  643.         % Some TrueType fonts converted by "Windows Type 1 Installer" have
  644.         % problematic post table including MacGlyphEncoding entries which
  645.         % should be omitted. Such extra entries in the beginning of glyphName
  646.         % array make /Encoding broken. If we find populary predefined
  647.         % ISOLatin1Encoding glyph name in the post table, empty encoding is
  648.         % returned. Some TrueType fonts for Microsoft Windows redefines
  649.         % MacGlyphEncoding glyph name out of predefined range). To permit
  650.         % such fonts, ISOLatin1Encoding is used to find broken post. Bug 689495.
  651.       /.broken_post //false def
  652.       tabdict /name .knownget {
  653.         (Windows Type 1 Installer V1.0) search {
  654.           pop pop pop
  655.           .latin1isodict postnames {
  656.             dup /.notdef ne {
  657.               2 copy known {
  658.                 TTFDEBUG { (ignore post table that redefines ISOLatin1Encoding glyph name ) print dup == flush } if
  659.                 /.broken_post //true def
  660.                 pop exit
  661.               } if
  662.             } if
  663.             pop
  664.           } forall
  665.           pop
  666.         } {
  667.           pop
  668.         } ifelse
  669.       } if
  670.  
  671.       numglyphs array 0 1 numglyphs 1 sub {
  672.     dup 2 mul 34 add postglyphs exch 2 //getinterval_from_stringarray exec 
  673.     dup 0 get 8 bitshift exch 1 get add dup 258 lt {
  674.       MacGlyphEncoding exch get
  675.     } {
  676.       dup 32768 ge {
  677.         % According to the published TrueType spec, such values are
  678.         % "reserved for future use", but at least some PDF files
  679.         % produced by the Adobe PDF library contain entries with a
  680.         % value of 16#ffff.
  681.         pop /.notdef
  682.       } {
  683.         % Get the name for this glyph
  684.         258 sub dup postnames length ge {
  685.           TTFDEBUG { (   *** warning: glyph index past end of 'post' table) = flush } if
  686.           pop
  687.           exit
  688.         } if
  689.         postnames exch get
  690.         % At least some of Microsoft's TrueType fonts use incorrect
  691.         % (Adobe-incompatible) names for some glyphs.
  692.         % Correct for this here.
  693.         postremap 1 index .knownget { exch pop } if
  694.       } ifelse
  695.     } ifelse
  696.     2 index 3 1 roll put
  697.       } for
  698.  
  699.       .broken_post {
  700.         pop
  701.         [ postnames aload length 1 roll ]
  702.       } if
  703.     }
  704.     ifelse
  705.   } bind
  706.   16#00030000  {    % No map.
  707.     pop [ ]
  708.   } bind
  709. .dicttomark readonly def                % postformats
  710.  
  711. /call.readtable
  712. { .readtable
  713. } bind def
  714. /call.readbigtable
  715. { .readbigtable
  716. } bind def
  717.  
  718. % Each procedure in this dictionary is called as follows:
  719. %    <file> <length> -proc- <string|array_of_strings>
  720. % Note that each table must have an even length, because of a strange
  721. % Adobe requirement that each sfnts entry have even length.
  722. /readtables mark
  723.     % Ordinary tables
  724.   (head) //call.readtable
  725.   (hhea) 1 index
  726.   (maxp) 1 index
  727.   (name) 1 index
  728.   (OS/2) 1 index
  729.   (post) //call.readbigtable
  730.   (vhea) //call.readtable
  731.     % Big tables
  732.   (cmap) //call.readbigtable
  733.   (GSUB) //call.readbigtable
  734.   (glyf) //call.readbigtable
  735.   (loca) 1 index
  736.   (hmtx) 1 index
  737.   (vmtx) 1 index
  738.     % Tables only needed for embedding in PDF files
  739.   (cvt ) //call.readtable
  740.   (fpgm) 1 index
  741.   (prep) 1 index
  742. .dicttomark
  743. % Normally there would be a 'readonly' here, but the ttf2pf utility wants
  744. % to include the 'kern' table as well, so we leave the readtables dictionary
  745. % writable.
  746. def                % readtables
  747.  
  748. /readtables_stripped readtables dup length dict copy
  749. dup (loca) { .skiptable } put
  750. dup (glyf) { .skiptable } put
  751. def
  752.  
  753. % Read a table as a single string.
  754. % <file> <length> .skiptable <string>
  755. /.skiptable {
  756.   pop pop ()
  757. } bind def
  758.  
  759. % Read a table as a single string.
  760. % <file> <length> .readtable <string>
  761. /.readtable {
  762.   dup dup 1 and add string
  763.         % Stack: f len str
  764.   dup 0 4 -1 roll getinterval
  765.         % Stack: f str str1
  766.     % Because of the absurd PostScript specification that gives an
  767.     % error for reading into an empty string, we have to check for
  768.     % this explicitly here.
  769.   3 -1 roll exch
  770.   dup () ne { readstring } if pop pop
  771. } bind def
  772.  
  773. % Read a big table (one that may exceed 64K).
  774. % <file> <length> .readbigtable <string[s]>
  775. /.readbigtable {
  776.   dup 65400 lt {
  777.     .readtable
  778.   } {
  779.     currentuserparams /VMReclaim get -2 vmreclaim
  780.     [ 4 2 roll {
  781.         % Stack: mark ... f left
  782.       dup maxstring le { exit } if
  783.       1 index maxstring string readstring pop 3 1 roll maxstring sub
  784.     } loop .readtable ]
  785.     exch vmreclaim
  786.   } ifelse
  787. } bind def
  788.  
  789. end readonly def                % .loadttfontdict
  790.  
  791. % <tab> .printtab -
  792. /.printtab {
  793.   dup 0 4 getinterval print ( ) print
  794.   dup 8 getu32 =only ( ) print
  795.   12 getu32 =
  796. } bind def
  797.  
  798. % <file> <bool> <SubfontID> .loadttfonttables -
  799. % Pushes .loadttfontdict & scratch dict on d-stack.
  800. % Defines f, offsets, tables, tabdict, tabs.
  801. % Skips loca and glyf if <bool> is true.
  802. /.loadttfonttables {
  803.   .loadttfontdict begin
  804.   40 dict begin
  805.   /SubfontID exch def
  806.   /load_stripped exch def
  807.   /f exch def
  808.   /offsets f 12 string readstring pop def
  809.   load_stripped { readtables_stripped } { readtables } ifelse /readtables_ exch def
  810.   offsets 0 4 getinterval (ttcf) eq {
  811.     % We need to handle TT collections with disk fonts only.
  812.     % Therefore the file is a disk file and it can be positioned.
  813.     offsets 8 getu32 /num_fonts exch def
  814.     SubfontID num_fonts ge {
  815.       QUIET not { (True Type collection contains insufficient fonts.) = } if
  816.       /.loadttfonttables cvx /invalidfont signalerror
  817.     } if
  818.     SubfontID 4 mul 12 add f exch setfileposition
  819.     f 4 string readstring pop 0
  820.     getu32 /ttc_offset exch def
  821.     f ttc_offset setfileposition
  822.     /offsets f 12 string readstring pop def
  823.   } {
  824.     SubfontID 0 gt {
  825.       QUIET not { (SubfontID > 0 with a True Type file which is not a collection.) = } if
  826.       /.loadttfonttables cvx /invalidfont signalerror
  827.     } if
  828.     /ttc_offset 0 def
  829.   } ifelse
  830.   /tables f offsets 4 getu16 16 mul string readstring pop def
  831.   /tabdict tables length 16 idiv dict def
  832.     % tabs = tables we want to keep, sorted by file position.
  833.   /tabs [ 0 16 tables length 1 sub {
  834.     tables exch 16 getinterval
  835.     TTFDEBUG { dup .printtab } if
  836.     dup 0 4 getinterval readtables_ 1 index known {
  837.       % put all 0 length tables at 0 to avoid overlap
  838.       1 index 12 getu32 0 eq { 1 index 8 0 putu32 } if
  839.       tabdict exch 2 index put
  840.     } {
  841.       pop pop
  842.     } ifelse
  843.   } for ] {
  844.     exch 8 getu32 exch 8 getu32 lt
  845.   } .sort def
  846.     % In certain malformed TrueType fonts, tables overlap.
  847.     % Truncate tables if necessary.
  848.   0 1 tabs length 2 sub {
  849.     dup tabs exch get exch 1 add tabs exch get
  850.     1 index 8 getu32 2 index 12 getu32 add
  851.     1 index 8 getu32 gt {
  852.       (**** Warning: ) print 1 index 0 4 getinterval print
  853.       ( overlaps ) print dup 0 4 getinterval print
  854.       (, truncating.) = flush
  855.       dup 8 getu32 2 index 8 getu32 sub
  856.       2 index 12 3 -1 roll putu32
  857.     } if pop pop
  858.   } for
  859. } bind def
  860.  
  861. /.file_table_pos_names
  862. mark
  863. /glyf 0
  864. /loca 0
  865. .dicttomark readonly def
  866.  
  867. % - .readttdata -
  868. % Read data.  Updates offsets, tabs; stores data in tabdict.
  869. /.readttdata {
  870.   /file_table_pos 10 dict def
  871.   /fpos offsets length tables length add ttc_offset add def
  872.   /sfpos offsets length tabs length 16 mul add def
  873.   offsets 4 tabs length putu16
  874.   tabs {
  875.     dup 0 4 getinterval /tname exch def
  876.     dup 8 getu32 /tpos exch def
  877.     dup 12 getu32 /tlen exch def
  878.     load_stripped //.file_table_pos_names tname known and {
  879.         pop
  880.         file_table_pos tname [tpos tlen] put
  881.         tabdict tname () put
  882.     } {
  883.       8 sfpos putu32
  884.       % Skip data between the end of the previous table and
  885.     % the beginning of this one, if any.
  886.       tpos fpos gt {
  887.         load_stripped {
  888.           % 'setfileposition' is faster for skipping a big data.
  889.           f tpos setfileposition
  890.         } {
  891.           f tpos fpos sub () /SubFileDecode filter dup flushfile closefile
  892.           /fpos tpos def
  893.         } ifelse
  894.       } if
  895.       f tlen readtables_ tname get exec
  896.       tabdict tname 3 -1 roll put
  897.     % Round up the table length to an even value.
  898.       /sfpos sfpos tlen dup 1 and add add def
  899.     } ifelse
  900.     /fpos fpos tlen add def
  901.   } forall
  902. } bind def
  903.  
  904. % Find the string in a list of strings that includes a given index.
  905. % <strings> <index> .findseg <string> <index'>
  906. /.findseg {
  907.   exch {
  908.     dup length 2 index gt { exch exit } if
  909.     length sub
  910.   } forall
  911. } bind def
  912.  
  913. % - .makesfnts -
  914. % Defines checksum, getloca, head, locatable, numloca, post, sfnts, upem
  915. % Note that the 'loca' table may be out of order. This is handled when
  916. % needed in .dividesfnts
  917. /.makesfnts {
  918.   .readttdata
  919.   /head tabdict /head get def
  920.   /post tabdict /post .knownget { 
  921.     dup 0 get /post_first_part exch def 
  922.   } { 
  923.     null 
  924.   } ifelse def
  925.   load_stripped not {
  926.     /locatable tabdict /loca get def
  927.     /numloca
  928.       locatable dup type /stringtype eq
  929.        { length }
  930.        { 0 exch { length add } forall }
  931.       ifelse    % no def yet
  932.     locatable type /stringtype eq {
  933.       /.indexloca {} def
  934.     } {
  935.       /.indexloca /.findseg load def
  936.     } ifelse
  937.     head 50 getu16 0 ne {
  938.       /getloca {
  939.         2 bitshift locatable exch .indexloca getu32
  940.       } def
  941.       4 idiv 1 sub
  942.     } {
  943.       /getloca {
  944.         dup add locatable exch .indexloca getu16 dup add
  945.       } def
  946.       2 idiv 1 sub
  947.     } ifelse def        % numloca
  948.     % If necessary, re-partition the glyfs.
  949.     tabdict /glyf get dup type /stringtype ne {
  950.       .dividesfnts tabdict /glyf 3 -1 roll put
  951.     } {
  952.       pop
  953.     } ifelse
  954.   } {
  955.     % We did not load loca, take the number of glyphs from maxp.
  956.     /numloca tabdict /maxp get 4 getu16 def
  957.   } ifelse
  958.   /sfnts [
  959.     offsets tabs { concatstrings } forall
  960.     tabs {
  961.       0 4 getinterval tabdict exch get
  962.       dup type /stringtype ne { aload pop } if
  963.     } forall
  964.   ] def
  965. } bind def
  966.  
  967. % <glyfs> .dividesfnts <glyfs'>
  968. /.dividesfnts {
  969.   /glyfs exch def
  970.   /len1 0 glyfs { length add } forall def
  971.     % Determine where to split the glyfs by scanning the sorted locatable
  972.     % The very last entry in loca may be bogus.
  973.     % Note that some loca entries may be odd, but we can only
  974.     % split at even positions.
  975.     %
  976.     % Construct splitarray, the array of final lengths of
  977.     % the sfnts entries covering the glyfs (i.e., all but
  978.     % the first and last sfnts entries).
  979.     /prevsplit 0 def
  980.     /prevboundary 0 def
  981.     % sort the locatable in case it is out of order
  982.     % Note the 'loca' table remains unchanged
  983.     /needsort false def
  984.     numloca array    % the array of 'loca' entries (may be out of order)
  985.     -1    % initial values for in order check
  986.     0 1 numloca 1 sub {
  987.       dup getloca dup
  988.       4 -1 roll lt { /needsort true def } if 
  989.       3 copy put exch pop
  990.     } for pop        % discard inorder check value
  991.     needsort {
  992.       { lt } bind .sort     % stack: locatable_array
  993.     } if
  994.     /splitarray [
  995.       3 -1 roll 0 1 numloca 1 sub {
  996.     % stack: /splitarray -mark- { splitlen splitlen ... } locatable_array index
  997.     1 index exch get dup prevsplit maxstring add gt {
  998.       prevboundary prevsplit sub exch
  999.       /prevsplit prevboundary def
  1000.     } if
  1001.     dup 1 and 0 eq { /prevboundary exch def } { pop } ifelse
  1002.     dup type /arraytype ne { exch } if    % keep locatable_array on top
  1003.       } for
  1004.       len1 prevsplit sub
  1005.       exch pop        % discard locatable_array
  1006.     ] def
  1007.     currentuserparams /VMReclaim get -2 vmreclaim
  1008.     [
  1009.     % Re-split the sfnts glyfs strings according to splitarray.
  1010.     % We do this by iterating over the final segments defined
  1011.     % by splitarray, and constructing them from pieces of the
  1012.     % current glyfs strings.  We recycle the current strings
  1013.     % when possible, to avoid stressing the allocator.
  1014.       /sfnt_idx 0 def
  1015.       /strpos 0 def
  1016.       /avail () def
  1017.       splitarray {
  1018.     /seglen exch def
  1019.     /segpos 0 def
  1020.     avail length seglen ge
  1021.       { avail 0 seglen getinterval /avail () def } { seglen string }
  1022.     ifelse
  1023.     {
  1024.       /str glyfs sfnt_idx get def
  1025.       /strlen str length def
  1026.       /strleft strlen strpos sub def
  1027.       seglen segpos sub strleft lt { exit } if
  1028.         % Copy the (rest of the) string into the new segment.
  1029.         % We know strleft <= segleft.
  1030.       dup segpos str strpos strleft getinterval putinterval
  1031.       /segpos segpos strleft add def
  1032.       /avail str def
  1033.       /sfnt_idx sfnt_idx 1 add def
  1034.       /strpos 0 def
  1035.       segpos seglen eq { exit } if
  1036.     } loop
  1037.         % Fill up the segment with an initial piece of the next
  1038.         % existing glyfs string.  We know strleft > segleft.
  1039.     /segleft seglen segpos sub def
  1040.     dup segpos str strpos segleft getinterval putinterval
  1041.     /strpos strpos segleft add def
  1042.       } forall
  1043.     ]
  1044.     exch vmreclaim
  1045. } bind def
  1046.  
  1047. /first_post_string % - first_post_string <string>
  1048. {
  1049.   post dup type /arraytype eq { 0 get } if
  1050. } bind def
  1051.  
  1052. % - .getpost -
  1053. % Uses post, defines glyphencoding
  1054. /.getpost {
  1055.   /glyphencoding post null eq {
  1056.     TTFDEBUG { (post missing) = flush } if [ ]
  1057.   } {
  1058.     postformats first_post_string 0 getu32 .knownget {
  1059.       TTFDEBUG {
  1060.     (post: format ) print
  1061.     first_post_string
  1062.     dup 0 getu16 =only (,) print 2 getu16 = flush
  1063.       } if
  1064.       post exch exec
  1065.     } {
  1066.       TTFDEBUG { (post: unknown format ) print post 0 getu32 = flush } if [ ]
  1067.     } ifelse
  1068.   } ifelse
  1069.   TTFDEBUG { (post=) print dup == } if
  1070.   def
  1071. } bind def
  1072.  
  1073. % - .ttkeys <key> <value> ...
  1074. /.ttkeys {
  1075.   count /ttkeycount exch def
  1076.   /upem head 18 getu16 def
  1077.   /FontMatrix matrix
  1078.   /FontBBox [ 36 2 42 { head exch gets16 upem div } for ]
  1079.   nextxuid
  1080.   tabdict /name .knownget {
  1081.         % Find the names from the 'name' table.
  1082.     /names exch def
  1083.     /FontName names 6 findname not { names 4 findname not { curxuid 16#ffffffff and 16 32 string cvrs } if } if
  1084.       /fontname 1 index def
  1085.     /FontInfo mark
  1086.       names 0 findname { /Notice exch } if
  1087.       names 1 findname { /FamilyName exch } if
  1088.       names 4 findname { /FullName exch } if
  1089.       names 5 findname { /Version exch } if
  1090.   } {
  1091.         % No name table, fabricate a FontName.
  1092.     /FontName curxuid 16#ffffffff and 16 32 string cvrs
  1093.       /fontname 1 index def
  1094.     /FontInfo mark
  1095.   } ifelse
  1096.         % Stack: ... /FontInfo mark key1 value1 ...
  1097.   post null ne {
  1098.     /ItalicAngle first_post_string 4 gets32 65536.0 div
  1099.     /isFixedPitch first_post_string 12 getu32 0 ne
  1100.     /UnderlinePosition first_post_string 8 gets16 upem div
  1101.     /UnderlineThickness first_post_string 10 gets16 upem div
  1102.   } if
  1103.   counttomark 0 ne { .dicttomark } { pop pop } ifelse
  1104.   /XUID [orgXUID 42 curxuid]
  1105.   TTFDEBUG {
  1106.     tabs { .printtab } forall
  1107.     [ sfnts { length } forall ] ==
  1108.     count ttkeycount sub array astore dup { == } forall aload pop
  1109.   } if
  1110.   /sfnts sfnts
  1111. } bind def
  1112.  
  1113. % ---------------- Standard TrueType font loading ---------------- %
  1114.  
  1115. % - .pickcmap_with_no_xlatmap -
  1116. % Defines cmapsub, cmaptab
  1117. /.pickcmap_with_no_xlatmap {
  1118.   tabdict /cmap get
  1119.         % The Apple cmap format is no help in determining the encoding.
  1120.         % Look for a Microsoft table.  If we can't find one,
  1121.         % just use the first table, whatever it is.
  1122.   dup 4 8 getinterval_from_stringarray exch  % () [] % the default
  1123.   0 1 2 index 2 getu16a 1 sub {              % () [] i
  1124.     8 mul 4 add 1 index exch 8 getinterval_from_stringarray % () [] ()
  1125.     TTFDEBUG {
  1126.       (cmap: platform ) print dup 0 getu16 =only
  1127.       ( encoding ) print dup 2 getu16 = flush
  1128.     } if
  1129.     dup 0 getu16 3 eq { exch 3 -1 roll pop exit } if pop
  1130.   } for
  1131.         % Stack: subentry table
  1132.   /cmapsub 2 index def  % () []
  1133.   exch 4 getu32 1 index string_array_size 1 index sub getinterval_from_stringarray
  1134.   /cmaptab exch def
  1135. } bind def
  1136.  
  1137. % - .pickcmap_with_xlatmap -
  1138. % Defines cmapsub, cmaptab
  1139. /.pickcmap_with_xlatmap {
  1140.   .xlatmap_dict /TrueType known not {
  1141.     (Emulating a CID font with a True Type file, ) print
  1142.     (the file gs/lib/xlatmap must contain /TrueType key.) =
  1143.     /.pickcmap_with_xlatmap cvx /configurationerror signalerror
  1144.   } if
  1145.   false
  1146.   .xlatmap_dict /TrueType get 
  1147.   dup length 2 sub 0 exch 2 exch {                       % bool [] i
  1148.     2 copy get                                           % bool [] i ()
  1149.     (.) search {                                         % bool [] i post match pre
  1150.       cvi exch pop exch cvi                              % bool [] i PlatID SpecID
  1151.     } {
  1152.       (gs/lib/xlatmap containg a record with an invalid (PlatformID.SpecificID)) =
  1153.       /.pickcmap_with_xlatmap cvx /configurationerror signalerror
  1154.     } ifelse
  1155.     TTFDEBUG {
  1156.       (Seeking a cmap for platform=) print 1 index =only ( encoding=) print dup =
  1157.     } if
  1158.     tabdict /cmap get                                    % bool [] i PlatID SpecID (cmap)
  1159.     dup /cmaptab exch def % temporary
  1160.     0 1 2 index 2 getu16a 1 sub {                        % bool [] i PlatID SpecID (cmap) j
  1161.       8 mul 4 add 1 index exch 8
  1162.       getinterval_from_stringarray                       % bool [] i PlatID SpecID (cmap) (cmapsub)
  1163.       TTFDEBUG {
  1164.         (cmap: platform ) print dup 0 getu16 =only
  1165.         ( encoding ) print dup 2 getu16 = flush
  1166.       } if
  1167.       dup 0 getu16 4 index eq {
  1168.         dup 2 getu16 3 index eq {                        % bool [] i PlatID SpecID (cmap) (cmapsub)
  1169.           TTFDEBUG {
  1170.             (Choosen a cmap for platform=) print 3 index =only
  1171.             ( encoding=) print 2 index =
  1172.           } if
  1173.           /cmapsub 1 index def
  1174.           dup 4 getu32                                   % bool [] i PlatID SpecID (cmap) (cmapsub) p
  1175.           cmaptab 1 index getu16a                        %     get cmap format
  1176.           8 lt {                                         %     length for traditional 16bit format 0, 2, 4, 6
  1177.             cmaptab 1 index 2 add getu16a
  1178.           } {                                            %     length for advanced 32bit format 8, 10, 12
  1179.             cmaptab 1 index 4 add getu32a
  1180.           } ifelse                                       % bool [] i PlatID SpecID (cmap) (cmapsub) p l
  1181.           cmaptab 3 1 roll getinterval_from_stringarray
  1182.           /cmaptab exch def                              % bool [] i PlatID SpecID (cmap) (cmapsub)
  1183.           5 index 5 index 1 add get                      % bool [] i PlatID SpecID (cmap) (cmapsub) /Decoding
  1184.           /Decoding exch def                             % bool [] i PlatID SpecID (cmap) (cmapsub)
  1185.           7 -1 roll pop true 7 1 roll                    % true [] i PlatID SpecID (cmap) (cmapsub)
  1186.         } if
  1187.       } if
  1188.       pop                                                % true [] i PlatID SpecID (cmap)
  1189.       5 index { exit } if
  1190.     } for                                                % bool [] i PlatID SpecID (cmap)
  1191.     pop pop pop pop                                      % bool []
  1192.     1 index { exit } if
  1193.   } for                                                  % bool []
  1194.   pop                                                    % bool
  1195.   not { 
  1196.     QUIET not { (True Type font doesn't contain a charset listed in gs/lib/xlatmap.) = } if
  1197.     /.pickcmap_with_xlatmap cvx /invalidfont signalerror
  1198.   } if                                                   %
  1199. } bind def
  1200.  
  1201. % - .pickcmap -
  1202. % Defines cmapsub, cmaptab
  1203. /.pickcmap {
  1204.   % Currently we use xlatmap only for emulation CIDFontType 2 with
  1205.   % a disk True Type font files, and use load_stripped
  1206.   % to check this regime. We would like to do so
  1207.   % while emulating a Type 42, but first the old code
  1208.   % about handling them to be changed 
  1209.   % with adding a handling of a Decoding.
  1210.   % fixme : A correct way to fix this is to implenent 
  1211.   % the Type 42 emulation with gs_fntem.ps .
  1212.   % Also note that PDF embedded fonts probably don't need a xlatmap -
  1213.   % see PDF spec, "Encodings for True Type fonts".
  1214.   load_stripped {
  1215.     //.pickcmap_with_xlatmap exec
  1216.   } {
  1217.     //.pickcmap_with_no_xlatmap exec
  1218.   } ifelse
  1219. } bind def
  1220.  
  1221. % <glyph> .nname <_name>
  1222. /.nname {
  1223.   =string cvs (_) exch concatstrings cvn
  1224. } bind def
  1225.  
  1226. % Provide alternative backward-compatible names for new TTF glyphs.
  1227. % This list was extracted from Adobe's Glyph List 2.0 and consists of
  1228. % glyph names that map to the same Unicode value.
  1229. % See: http://partners.adobe.com/asn/developer/typeforum/unicodegn.html
  1230. /postalias mark
  1231.   /pi1  /pi                                            /plusinus /plusminus
  1232.   /Acyrillic /afii10017                                /Becyrillic /afii10018                               
  1233.   /Cdot /Cdotaccent                                    /Checyrillic /afii10041                              
  1234.   /Dcroat /Dslash                                      /Decyrillic /afii10021                               
  1235.   /Delta /increment                                    /Djecyrillic /afii10051                              
  1236.   /Dzecyrillic /afii10054                              /Dzhecyrillic /afii10145                             
  1237.   /Ecyrillic /afii10053                                /Edot /Edotaccent                                    
  1238.   /Efcyrillic /afii10038                               /Elcyrillic /afii10029                               
  1239.   /Emcyrillic /afii10030                               /Encyrillic /afii10031                               
  1240.   /Ercyrillic /afii10034                               /Ereversedcyrillic /afii10047                        
  1241.   /Escyrillic /afii10035                               /Euro /euro                                          
  1242.   /Fitacyrillic /afii10147                             /Gcedilla /Gcommaaccent                              
  1243.   /Gdot /Gdotaccent                                    /Gecyrillic /afii10020                               
  1244.   /Gheupturncyrillic /afii10050                        /Gjecyrillic /afii10052                              
  1245.   /H18533 /blackcircle                                 /H18543 /blacksmallsquare                            
  1246.   /H18551 /whitesmallsquare                            /H22073 /whitesquare                                 
  1247.   /Hardsigncyrillic /afii10044                         /IAcyrillic /afii10049                               
  1248.   /IUcyrillic /afii10048                               /Icyrillic /afii10055                                
  1249.   /Idot /Idotaccent                                    /Iecyrillic /afii10022                               
  1250.   /Iicyrillic /afii10026                               /Iishortcyrillic /afii10027                          
  1251.   /Iocyrillic /afii10023                               /Izhitsacyrillic /afii10148                          
  1252.   /Jecyrillic /afii10057                               /Kacyrillic /afii10028                               
  1253.   /Kcedilla /Kcommaaccent                              /Khacyrillic /afii10039                              
  1254.   /Kjecyrillic /afii10061                              /Lcedilla /Lcommaaccent                              
  1255.   /Ldot /Ldotaccent                                    /Ljecyrillic /afii10058                              
  1256.   /Ncedilla /Ncommaaccent                              /Njecyrillic /afii10059                              
  1257.   /Ocyrillic /afii10032                                /Odblacute /Ohungarumlaut                            
  1258.   /Ohm /Omega                                          /Oslashacute /Ostrokeacute                           
  1259.   /Pecyrillic /afii10033                               /Rcedilla /Rcommaaccent                              
  1260.   /Shacyrillic /afii10042                              /Shchacyrillic /afii10043                            
  1261.   /Softsigncyrillic /afii10046                         /Tcedilla /Tcommaaccent                              
  1262.   /Tecyrillic /afii10036                               /Tsecyrillic /afii10040                              
  1263.   /Tshecyrillic /afii10060                             /Ucyrillic /afii10037                                
  1264.   /Udblacute /Uhungarumlaut                            /Upsilon1 /Upsilonhooksymbol                         
  1265.   /Ushortcyrillic /afii10062                           /Vecyrillic /afii10019                               
  1266.   /Yatcyrillic /afii10146                              /Yericyrillic /afii10045                             
  1267.   /Yicyrillic /afii10056                               /Zdot /Zdotaccent                                    
  1268.   /Zecyrillic /afii10025                               /Zhecyrillic /afii10024                              
  1269.   /acutecmb /acutecomb                                 /acyrillic /afii10065                                
  1270.   /afii00208 /horizontalbar                            /afii08941 /lira                                     
  1271.   /afii10066 /becyrillic                               /afii10067 /vecyrillic                               
  1272.   /afii10068 /gecyrillic                               /afii10069 /decyrillic                               
  1273.   /afii10070 /iecyrillic                               /afii10071 /iocyrillic                               
  1274.   /afii10072 /zhecyrillic                              /afii10073 /zecyrillic                               
  1275.   /afii10074 /iicyrillic                               /afii10075 /iishortcyrillic                          
  1276.   /afii10076 /kacyrillic                               /afii10077 /elcyrillic                               
  1277.   /afii10078 /emcyrillic                               /afii10079 /encyrillic                               
  1278.   /afii10080 /ocyrillic                                /afii10081 /pecyrillic                               
  1279.   /afii10082 /ercyrillic                               /afii10083 /escyrillic                               
  1280.   /afii10084 /tecyrillic                               /afii10085 /ucyrillic                                
  1281.   /afii10086 /efcyrillic                               /afii10087 /khacyrillic                              
  1282.   /afii10088 /tsecyrillic                              /afii10089 /checyrillic                              
  1283.   /afii10090 /shacyrillic                              /afii10091 /shchacyrillic                            
  1284.   /afii10092 /hardsigncyrillic                         /afii10093 /yericyrillic                             
  1285.   /afii10094 /softsigncyrillic                         /afii10095 /ereversedcyrillic                        
  1286.   /afii10096 /iucyrillic                               /afii10097 /iacyrillic                               
  1287.   /afii10098 /gheupturncyrillic                        /afii10099 /djecyrillic                              
  1288.   /afii10100 /gjecyrillic                              /afii10101 /ecyrillic                                
  1289.   /afii10102 /dzecyrillic                              /afii10103 /icyrillic                                
  1290.   /afii10104 /yicyrillic                               /afii10105 /jecyrillic                               
  1291.   /afii10106 /ljecyrillic                              /afii10107 /njecyrillic                              
  1292.   /afii10108 /tshecyrillic                             /afii10109 /kjecyrillic                              
  1293.   /afii10110 /ushortcyrillic                           /afii10193 /dzhecyrillic                             
  1294.   /afii10194 /yatcyrillic                              /afii10195 /fitacyrillic                             
  1295.   /afii10196 /izhitsacyrillic                          /afii10846 /schwacyrillic                            
  1296.   /afii57381 /percentarabic                            /afii57388 /commaarabic                              
  1297.   /afii57392 /zeroarabic                               /afii57393 /onearabic                                
  1298.   /afii57394 /twoarabic                                /afii57395 /threearabic                              
  1299.   /afii57396 /fourarabic                               /afii57397 /fivearabic                               
  1300.   /afii57398 /sixarabic                                /afii57399 /sevenarabic                              
  1301.   /afii57400 /eightarabic                              /afii57401 /ninearabic                               
  1302.   /afii57403 /semicolonarabic                          /afii57407 /questionarabic                           
  1303.   /afii57409 /hamzaarabic                              /afii57410 /alefmaddaabovearabic                     
  1304.   /afii57411 /alefhamzaabovearabic                     /afii57412 /wawhamzaabovearabic                      
  1305.   /afii57413 /alefhamzabelowarabic                     /afii57414 /yehhamzaabovearabic                      
  1306.   /afii57415 /alefarabic                               /afii57416 /beharabic                                
  1307.   /afii57417 /tehmarbutaarabic                         /afii57418 /teharabic                                
  1308.   /afii57419 /theharabic                               /afii57420 /jeemarabic                               
  1309.   /afii57421 /haharabic                                /afii57422 /khaharabic                               
  1310.   /afii57423 /dalarabic                                /afii57424 /thalarabic                               
  1311.   /afii57425 /reharabic                                /afii57426 /zainarabic                               
  1312.   /afii57427 /seenarabic                               /afii57428 /sheenarabic                              
  1313.   /afii57429 /sadarabic                                /afii57430 /dadarabic                                
  1314.   /afii57431 /taharabic                                /afii57432 /zaharabic                                
  1315.   /afii57433 /ainarabic                                /afii57434 /ghainarabic                              
  1316.   /afii57440 /tatweelarabic                            /afii57441 /feharabic                                
  1317.   /afii57442 /qafarabic                                /afii57443 /kafarabic                                
  1318.   /afii57444 /lamarabic                                /afii57445 /meemarabic                               
  1319.   /afii57446 /noonarabic                               /afii57448 /wawarabic                                
  1320.   /afii57449 /alefmaksuraarabic                        /afii57450 /yeharabic                                
  1321.   /afii57451 /fathatanarabic                           /afii57452 /dammatanarabic                           
  1322.   /afii57453 /kasratanarabic                           /afii57454 /fathaarabic                              
  1323.   /afii57455 /dammaarabic                              /afii57456 /kasraarabic                              
  1324.   /afii57457 /shaddaarabic                             /afii57458 /sukunarabic                              
  1325.   /afii57470 /heharabic                                /afii57505 /veharabic                                
  1326.   /afii57506 /peharabic                                /afii57507 /tcheharabic                              
  1327.   /afii57508 /jeharabic                                /afii57509 /gafarabic                                
  1328.   /afii57511 /tteharabic                               /afii57512 /ddalarabic                               
  1329.   /afii57513 /rreharabic                               /afii57514 /noonghunnaarabic                         
  1330.   /afii57519 /yehbarreearabic                          /afii57636 /newsheqelsign                            
  1331.   /afii57645 /maqafhebrew                              /afii57658 /sofpasuqhebrew                           
  1332.   /afii57664 /alef                                     /afii57665 /bet                                      
  1333.   /afii57666 /gimel                                    /afii57667 /dalet                                    
  1334.   /afii57668 /he                                       /afii57669 /vav                                      
  1335.   /afii57670 /zayin                                    /afii57671 /het                                      
  1336.   /afii57672 /tet                                      /afii57673 /yod                                      
  1337.   /afii57674 /finalkaf                                 /afii57675 /kaf                                      
  1338.   /afii57676 /lamed                                    /afii57677 /finalmem                                 
  1339.   /afii57678 /mem                                      /afii57679 /finalnun                                 
  1340.   /afii57680 /nun                                      /afii57681 /samekh                                   
  1341.   /afii57682 /ayin                                     /afii57683 /finalpe                                  
  1342.   /afii57684 /pe                                       /afii57685 /finaltsadi                               
  1343.   /afii57686 /tsadi                                    /afii57687 /qof                                      
  1344.   /afii57688 /resh                                     /afii57689 /shin                                     
  1345.   /afii57690 /tav                                      /afii57694 /shinshindot                              
  1346.   /afii57695 /shinsindot                               /afii57700 /vavholam                                 
  1347.   /afii57705 /doubleyodpatah                           /afii57716 /vavvavhebrew                             
  1348.   /afii57717 /vavyodhebrew                             /afii57718 /yodyodhebrew                             
  1349.   /afii57723 /vavdagesh                                /afii57793 /hiriq                                    
  1350.   /afii57794 /tsere                                    /afii57795 /segol                                    
  1351.   /afii57796 /qubuts                                   /afii57797 /qamats                                   
  1352.   /afii57798 /patah                                    /afii57799 /sheva                                    
  1353.   /afii57800 /hatafpatah                               /afii57801 /hatafsegol                               
  1354.   /afii57802 /hatafqamats                              /afii57803 /sindothebrew                             
  1355.   /afii57804 /shindothebrew                            /afii57806 /holam                                    
  1356.   /afii57807 /dagesh                                   /afii57839 /siluqhebrew                              
  1357.   /afii57841 /rafe                                     /afii57842 /paseqhebrew                              
  1358.   /afii57929 /apostrophemod                            /afii61248 /careof                                   
  1359.   /afii61289 /lsquare                                  /afii61352 /numero                                   
  1360.   /afii61664 /zerowidthnonjoiner                       /afii63167 /asteriskarabic                           
  1361.   /afii64937 /commareversedmod                         /alefmaksurainitialarabic /yehinitialarabic          
  1362.   /alefmaksuramedialarabic /yehmedialarabic            /approximatelyequal /congruent                       
  1363.   /arrowdblboth /dblarrowleft                          /arrowdblleft /arrowleftdbl                          
  1364.   /arrowdblright /dblarrowright                        /arrowupdnbse /arrowupdownbase                       
  1365.   /bar /verticalbar                                    /betdagesh /betdageshhebrew                          
  1366.   /blackdownpointingtriangle /triagdn                  /blackleftpointingpointer /triaglf                   
  1367.   /blackrectangle /filledrect                          /blackrightpointingpointer /triagrt                  
  1368.   /blacksmilingface /invsmileface                      /blacksquare /filledbox                              
  1369.   /blackuppointingtriangle /triagup                    /bulletinverse /invbullet                            
  1370.   /cdot /cdotaccent                                    /circle /whitecircle                                 
  1371.   /circlemultiply /timescircle                         /circleplus /pluscircle                              
  1372.   /club /clubsuitblack                                 /colonmonetary /colonsign                            
  1373.   /compass /sun                                        /daletdagesh /daletdageshhebrew                      
  1374.   /dargahebrew /dargalefthebrew                        /dbllowline /underscoredbl                           
  1375.   /dcroat /dmacron                                     /decimalseparatorarabic /decimalseparatorpersian     
  1376.   /dialytikatonos /dieresistonos                       /dkshade /shadedark                                  
  1377.   /dotbelowcmb /dotbelowcomb                           /edot /edotaccent                                    
  1378.   /eighthnotebeamed /musicalnotedbl                    /etnahtafoukhhebrew /etnahtahebrew                   
  1379.   /existential /thereexists                            /female /venus                                       
  1380.   /finalkafdagesh /finalkafdageshhebrew                /forall /universal                                   
  1381.   /gcedilla /gcommaaccent                              /gdot /gdotaccent                                    
  1382.   /gimeldagesh /gimeldageshhebrew                      /gradient /nabla                                     
  1383.   /gravecmb /gravecomb                                 /haaltonearabic /hehaltonearabic                     
  1384.   /heart /heartsuitblack                               /hedagesh /hedageshhebrew                            
  1385.   /hehfinalalttwoarabic /hehfinalarabic                /hookabovecomb /hookcmb                              
  1386.   /ilde /tilde                                         /integralbottom /integralbt                          
  1387.   /integraltop /integraltp                             /invcircle /whitecircleinverse                       
  1388.   /kafdagesh /kafdageshhebrew                          /kcedilla /kcommaaccent                              
  1389.   /lameddagesh /lameddageshhebrew                      /lcedilla /lcommaaccent                              
  1390.   /ldot /ldotaccent                                    /logicalnotreversed /revlogicalnot                   
  1391.   /longs /slong                                        /ltshade /shadelight                                 
  1392.   /macron /overscore                                   /mahapakhhebrew /mahapakhlefthebrew                  
  1393.   /male /mars                                          /memdagesh /memdageshhebrew                          
  1394.   /merkhahebrew /merkhalefthebrew                      /merkhakefulahebrew /merkhakefulalefthebrew          
  1395.   /middot /periodcentered                              /mu /mu1                                             
  1396.   /munahhebrew /munahlefthebrew                        /napostrophe /quoterightn                            
  1397.   /nbspace /nonbreakingspace                           /ncedilla /ncommaaccent                              
  1398.   /notelement /notelementof                            /nundagesh /nundageshhebrew                          
  1399.   /odblacute /ohungarumlaut                            /omega1 /pisymbolgreek                               
  1400.   /openbullet /whitebullet                             /orthogonal /rightangle                              
  1401.   /oslashacute /ostrokeacute                           /pedagesh /pedageshhebrew                            
  1402.   /phi1 /phisymbolgreek                                /propersubset /subset                                
  1403.   /propersuperset /superset                            /qofdagesh /qofdageshhebrew                          
  1404.   /quoteleftreversed /quotereversed                    /rcedilla /rcommaaccent                              
  1405.   /reflexsubset /subsetorequal                         /reflexsuperset /supersetorequal                     
  1406.   /reviahebrew /reviamugrashhebrew                     /samekhdagesh /samekhdageshhebrew                    
  1407.   /sfthyphen /softhyphen                               /shade /shademedium                                  
  1408.   /sheqel /sheqelhebrew                                /shindagesh /shindageshhebrew                        
  1409.   /shindageshshindot /shindageshshindothebrew          /shindageshsindot /shindageshsindothebrew            
  1410.   /sigma1 /sigmafinal                                  /similar /tildeoperator                              
  1411.   /smileface /whitesmilingface                         /space /spacehackarabic                              
  1412.   /spade /spadesuitblack                               /tavdages /tavdagesh                                 
  1413.   /tcedilla /tcommaaccent                              /tetdagesh /tetdageshhebrew                          
  1414.   /tevirhebrew /tevirlefthebrew                        /theta1 /thetasymbolgreek                            
  1415.   /thousandsseparatorarabic /thousandsseparatorpersian /tildecmb /tildecomb                                 
  1416.   /tipehahebrew /tipehalefthebrew                      /tsadidagesh /tsadidageshhebrew                      
  1417.   /twodotenleader /twodotleader                        /udblacute /uhungarumlaut                            
  1418.   /yerahbenyomohebrew /yerahbenyomolefthebrew          /yoddagesh /yoddageshhebrew                          
  1419.   /zayindagesh /zayindageshhebrew                      /zdot /zdotaccent                                    
  1420. .dicttomark readonly def
  1421.  
  1422. % - .charkeys /CharStrings <charstrings> /Encoding <encoding>
  1423. % Resets glyphencoding
  1424. /.charkeys {
  1425.   TTFDEBUG {
  1426.     (glyphencoding: length=) print glyphencoding dup length = === flush
  1427.   } if
  1428.         % Hack: if there is no usable post table but the cmap uses
  1429.         % the Microsoft Unicode encoding, use ISOLatin1Encoding.
  1430.      % if 'post' presents, .charkeys computes (with dropping minor details) :
  1431.      %     CharStrings = glyphencoding^-1
  1432.      %     Encoding = cmap*glyphencoding
  1433.      % because 'post' maps glyph indices to glyph names.
  1434.      % Otherwise .charkeys must compute (with dropping same details) :
  1435.      %     CharStrings = glyphencoding^-1 * cmap
  1436.      %     Encoding = glyphencoding
  1437.      % because glyphencoding is stubbed with an encoding, 
  1438.      % which maps char codes to glyph names.
  1439.   glyphencoding length 0 eq {
  1440.     /have_post false def
  1441.     cmapsub 0 4 getinterval <00030001> eq {
  1442.     PDFDEBUG { (No post but have cmap 3.1, so use ISOLatin1Encoding) = } if
  1443.       /glyphencoding ISOLatin1Encoding dup length array copy def
  1444.     } {
  1445.       PDFDEBUG { (No encoding info, use .GS_extended_SymbolEncoding) = } if
  1446.       /glyphencoding /.GS_extended_SymbolEncoding findencoding dup length array copy def
  1447.     } ifelse
  1448.   } {
  1449.     /have_post true def
  1450.   } ifelse
  1451.         % If necessary, fabricate additional glyphencoding entries
  1452.         % to cover all of loca
  1453.   glyphencoding length numloca lt {
  1454.     /glyphencoding numloca array
  1455.       glyphencoding length dup 1 sub 0 1 3 2 roll {
  1456.         dup glyphencoding exch get
  1457.         3 index 3 1 roll put
  1458.       } for
  1459.       % /glyphencoding <newarray> <glyphencoding length>
  1460.       1 numloca 1 sub {
  1461.         1 index exch dup .nname put
  1462.       } for
  1463.     def
  1464.   } if
  1465.   /cmapa cmaptab cmaparray def
  1466.         % Some badly designed Chinese fonts have a post table
  1467.         % in which all glyphs other than 0 are named .null.
  1468.         % Use CharStrings to keep track of the reverse map from
  1469.         % names to glyphs, and don't let any name be used for
  1470.         % more than one glyph.
  1471.   /CharStrings glyphencoding dup length 1 add dict    % +1 for .notdef
  1472.     0 1 3 index length 1 sub {
  1473.         % Stack: glyphencoding dict index
  1474.       2 index 1 index get 
  1475.       have_post not { 
  1476.         exch
  1477.         cmapa exch .knownget not {
  1478.           0   % a stub for a while. Must skip the entry.
  1479.         } if
  1480.         exch
  1481.       } if
  1482.       2 index 1 index known
  1483.       { % The same name maps to more than one glyph. Change the name.
  1484.         % No special treatment for /.notdef glyph. Bug 689408.
  1485.            pop dup .nname 3 index 2 index 2 index put
  1486.         2 index exch 3 -1 roll put
  1487.       } {
  1488.         2 index exch 3 -1 roll put    % unique name
  1489.       } ifelse
  1490.     } for exch pop
  1491.         % If there is no .notdef entry, map it to glyph 0.
  1492.   dup /.notdef known not { dup /.notdef 0 put } if
  1493.   TTFDEBUG { 
  1494.     (CharStrings:)= dup { exch =string cvs print ( ) print == } forall
  1495.   } if
  1496.   //postalias {
  1497.     % process pairs of names. If both names are known, do nothing. Otherwise
  1498.     % make the name that is not defined an alias for the one that does exist.
  1499.     % Stack: CharStrings(dict) /name1 /name2
  1500.     2 index 2 index known 3 index 2 index known 1 index xor not {
  1501.       pop pop pop    % both names known or neither known
  1502.     } {
  1503.       % Stack: CharStrings(dict) /name1 /name2 name1_known(bool)
  1504.       { exch } if        % /name1 known -- we need it on top 
  1505.       % Stack: CharStrings(dict) /alias_name /known_name
  1506.       TTFDEBUG { (setting alias: ) print 1 index ==only ( to be the same as glyph: ) print dup == } if
  1507.       2 index exch get 2 index 3 1 roll put
  1508.     } ifelse  
  1509.   } forall
  1510.   readonly
  1511.   /Encoding [
  1512.       have_post {
  1513.         0 1 255 {
  1514.           cmapa exch .knownget not { 0 } if
  1515.           glyphencoding dup length
  1516.           2 index le {
  1517.             pop pop /.notdef
  1518.           } {
  1519.             exch get
  1520.           } ifelse
  1521.         } for
  1522.       } {
  1523.         glyphencoding  dup length 256 gt { 0 256 getinterval } if
  1524.         aload pop
  1525.         counttomark 256 exch sub { /.notdef } repeat
  1526.       } ifelse
  1527.     ]
  1528.   TTFDEBUG { (Encoding: ) print dup === flush } if
  1529. } bind def
  1530.  
  1531. currentdict /postalias undef
  1532.  
  1533. % <file> .loadttfont <type42font>
  1534. /.loadttfont {
  1535.   TTFDEBUG { (.loadttfont) = } if
  1536.   //false 0 .loadttfonttables
  1537.   .makesfnts
  1538.   .getpost
  1539.   .pickcmap
  1540.   mark
  1541.   .charkeys
  1542.   .ttkeys
  1543.   /FontType 42
  1544.   /PaintType 0
  1545.   TTFDEBUG {
  1546.     (numloca=) print numloca =
  1547.   } if
  1548.   .dicttomark
  1549.   end end dup /FontName get exch definefont
  1550. } bind def
  1551.  
  1552. % ---------------- CIDFontType 2 font loading ---------------- %
  1553.  
  1554. % Fill a string with sequential CIDs starting from the initial value.
  1555. % <string> <value> .fill_identity_cmap <string>
  1556. /.fill_identity_cmap {             % () v
  1557.   1 index length 2 sub          % () v n-2
  1558.   0 2 3 2 roll {                % () v 0 2 n-1
  1559.       3 copy exch               % () v i () i v 
  1560.       -8 bitshift               % () v i () i v>>8
  1561.       put                       % () v i
  1562.       3 copy 1 add              % () v i () v i+1
  1563.       exch 255 and              % () v i () i+1 v&255
  1564.       put                       % () v i 
  1565.       pop 1 add                 % () v+1
  1566.   } for
  1567.   pop
  1568. } bind def
  1569.  
  1570. % -mark- <key> <value> ... .definettcidfont <font>
  1571. /.definettcidfont {
  1572.   /CIDFontName fontname
  1573.   /CIDFontType 2
  1574.   /CIDSystemInfo mark
  1575.     /Registry (Adobe)
  1576.     /Ordering (Japan1)        % adhoc
  1577.     /Supplement 0
  1578.   .dicttomark
  1579.   /CharStrings mark /.notdef 0 .dicttomark
  1580.         % The cmap isn't of any use even if it is present.
  1581.         % Just construct an identity CIDMap covering all the glyphs.
  1582.  
  1583.   /CIDCount numloca % Wrong if a CIDFontType2 embedded into PDF with a non-Identity CIDToGIDMap.
  1584.                     % processCIDToGIDMap may replace.
  1585.   /CIDMap numloca maxstring le {
  1586.                 % Use a single string.
  1587.       numloca 2 mul string 0 .fill_identity_cmap
  1588.   } {
  1589.                 % We must use 2 strings.
  1590.       maxstring 2 mul string 0 .fill_identity_cmap
  1591.       numloca maxstring sub 2 mul string maxstring .fill_identity_cmap
  1592.       2 array astore
  1593.   } ifelse
  1594.  
  1595.   /GDBytes 2
  1596.   .dicttomark
  1597.   end end dup /CIDFontName get exch /CIDFont defineresource
  1598. } bind def
  1599.  
  1600. % <file> .loadttcidfont <cidtype2font>
  1601. /.loadttcidfont {
  1602.   //false 0 .loadttfonttables
  1603.   .makesfnts
  1604.     % CIDFontType2 fonts don't have a cmap: they are indexed by CID.
  1605.   mark
  1606.   .ttkeys
  1607.   .definettcidfont
  1608. } bind def
  1609.  
  1610. % <file> <SubfontID> .load_tt_font_stripped <font_data>
  1611. % The font_data includes sfnts, NumGlyphs, TT_cmap, file_table_pos, Decoding.
  1612. % CIDMap to be created later from TT_cmap.
  1613. /.load_tt_font_stripped {
  1614.   //true exch .loadttfonttables
  1615.   .makesfnts
  1616.   .pickcmap
  1617.   mark
  1618.   .ttkeys
  1619.   /NumGlyphs numloca
  1620.   /TT_cmap cmaptab cmaparray
  1621.   /file_table_pos file_table_pos
  1622.   /Decoding Decoding
  1623.   .dicttomark
  1624.   end end 
  1625. } bind def
  1626.  
  1627. % ---------------- PDF TrueType font loading ---------------- %
  1628.  
  1629. % Strictly speaking, this code should be loaded only if we have a PDF
  1630. % interpreter, but it's so closely tied to the rest of the code in this
  1631. % file that we always include it.
  1632.  
  1633. % <plat+enc> .findcmap <subtable> true
  1634. % <plat+enc> .findcmap false
  1635. /.findcmap {
  1636.   false exch tabdict /cmap get
  1637.         % Some fonts have multiple cmaps with the same platform and
  1638.         % encoding.  Use the first one we find.
  1639.   0 1 2 index 2 getu16a 1 sub {
  1640.         % Stack: false plat+enc cmap index
  1641.     8 mul 4 add 1 index exch 8 getinterval_from_stringarray
  1642.     dup 0 4 getinterval 3 index eq {
  1643.       4 getu32 1 index exch 1 index string_array_size 1 index sub getinterval_from_stringarray
  1644.       4 -1 roll not 4 2 roll exit
  1645.     } if pop
  1646.   } for
  1647.         % Stack: false plat+enc cmap || subtable true plat+enc cmap
  1648.   pop pop
  1649. } bind def
  1650.  
  1651. % Build .symbol_list for .pdfcharkeys .
  1652. % It is a dictionary containing all SymbolEncoding glyph names
  1653. % and random names for filling gaps in the character code range.
  1654. /.symbol_list 256 dict def
  1655. {
  1656.   =string 0 (x) 0 get put
  1657.   /SymbolEncoding .findencoding
  1658.   0 1 255 {
  1659.     dup 2 index exch get
  1660.     dup /.notdef eq {
  1661.       pop dup
  1662.       =string 1 3 getinterval cvs length 1 add
  1663.       =string exch 0 exch getinterval cvn
  1664.     } if
  1665.     exch //.symbol_list 3 1 roll put
  1666.   } for
  1667.   pop
  1668. } bind exec
  1669.  
  1670. % Create .GS_extended_SymbolEncoding as inverse of .symbol_list .
  1671. {
  1672.   /.GS_extended_SymbolEncoding 256 array
  1673.   //.symbol_list {
  1674.     exch 2 index 3 1 roll put  
  1675.   } forall
  1676.   .defineencoding
  1677. } bind exec
  1678.  
  1679. /.hexdigits (0123456789ABCDEF) def
  1680.  
  1681. /.is_hex_digit { %   <int> .is_hex_digit <bool>
  1682.   dup 48 ge exch
  1683.   dup 57 le exch
  1684.   dup 65 ge exch
  1685.   70 le and 
  1686.   3 1 roll
  1687.   and or
  1688. } bind def
  1689.  
  1690. /.popfex { pop //false exit } bind def
  1691. /.pop3ex { pop pop pop exit } bind def
  1692.  
  1693. /.addglyph {  % <dict> <name> <glyph#> .addglyph -
  1694.   1 index .namestring     % d n g s
  1695.   dup length 7 eq { 
  1696.     % Bug688467.ps doesn't work if the uniXXXX mapping is allowed with any cmap.
  1697.     % Allow it with cmap 3.1 only.
  1698.     currentdict /.allow_uniXXXX_glyph_names .knownget not { //false } if 
  1699.     } { //false 
  1700.     } ifelse              % d n g s b
  1701.   {
  1702.     % An undocumented Adobe feature (not sure) :
  1703.     % if the name is uniXXXX, obtain Unicode code from it.
  1704.     % See bug 688946.
  1705.     TTFDEBUG { (Try uniXXXX:) print dup print } if
  1706.     { dup 0 get 117 ne //.popfex if % u
  1707.       dup 1 get 110 ne //.popfex if % n
  1708.       dup 2 get 105 ne //.popfex if % i
  1709.       dup 3 get //.is_hex_digit exec not //.popfex if
  1710.       dup 4 get //.is_hex_digit exec not //.popfex if
  1711.       dup 5 get //.is_hex_digit exec not //.popfex if
  1712.       dup 6 get //.is_hex_digit exec not //.popfex if
  1713.       dup 3 1 getinterval .hexdigits exch search pop length exch pop exch pop 12 bitshift exch
  1714.       dup 4 1 getinterval .hexdigits exch search pop length exch pop exch pop  8 bitshift exch
  1715.       dup 5 1 getinterval .hexdigits exch search pop length exch pop exch pop  4 bitshift exch
  1716.       dup 6 1 getinterval .hexdigits exch search pop length exch pop exch pop exch pop
  1717.       add add add 
  1718.  
  1719.       cmapencoding exch .knownget not { 0 } if
  1720.       dup 0 eq //.popfex if
  1721.  
  1722.       TTFDEBUG { ( index=) print dup =string cvs print } if
  1723.       exch pop
  1724.       put //true exit
  1725.     } loop
  1726.     TTFDEBUG { ()= } if
  1727.   } {
  1728.     pop //false
  1729.   } ifelse
  1730.   not {                   % d n g
  1731.     {
  1732.       cmapencoding exch .knownget not { 0 } if
  1733.       dup 0 eq //.pop3ex if
  1734.       3 copy pop known //.pop3ex if
  1735.       put exit
  1736.     } loop
  1737.   } if
  1738. } bind def
  1739.  
  1740. % <subcmap> <chartoglyphmap> .pdfmapchars /CharStrings <charstrings>
  1741. /.pdfmapchars {
  1742.   exch cmaparray /cmapencoding exch def     % c2g
  1743.   /CharStrings 0 dict                       % c2g /CS <<>>
  1744.  
  1745.   % Add glyphs of <chartoglyphmap>*<subcmap> :
  1746.   3 2 roll {                               % /CS <<>> v
  1747.     dup type /arraytype eq {               % /CS <<>> /name []
  1748.       { 3 copy //.addglyph exec
  1749.         pop
  1750.       } forall
  1751.     } {
  1752.       3 copy //.addglyph exec pop
  1753.     } ifelse
  1754.     pop
  1755.   } forall
  1756.  
  1757.   % Add glyphs of 'post' with lower priority :
  1758.   0 1 glyphencoding length 1 sub {
  1759.     dup glyphencoding exch get exch
  1760.     dup 0 ne {
  1761.       3 copy pop known not {
  1762.         3 copy put
  1763.       } if
  1764.     } if
  1765.     pop pop
  1766.   } for
  1767.  
  1768.   dup /.notdef 0 put
  1769.  
  1770. } bind def
  1771.  
  1772. % - .pdfcharkeys /CharStrings <charstrings> /Encoding <encoding>
  1773. /.pdfcharkeys {
  1774.     % The following algorithms are per the PDF Reference, Second Edition
  1775.     % (PDF 1.3 reference manual).
  1776.   TTFDEBUG { (.pdfcharkeys beg) = } if
  1777.   is_symbolic {
  1778.     <00030001> .findcmap {
  1779.       %
  1780.       % Adobe PDF spec says that symbolic fonts should contain exactly one 
  1781.       % cmap subtable for Platform=1, Encoding=0.
  1782.       % Perhaps "Adobe Acrobat PDFWriter 4.0 for Windows" sometimes embeds
  1783.       % fonts with both subtables 3.1 and 1.0 (see comparefiles/159.pdf,
  1784.       % the font "Arial,Bold" with the character "registered"),
  1785.       % and both Acrobat Reader 4.0 and 5.0 choose 3.1.
  1786.       % Therefore we try 3.1 first.
  1787.       %
  1788.       (   **** Warning: Embedded symbolic TT fonts should not contain a cmap for Platform=3 Encoding=1.\n)
  1789.         pdfformaterror
  1790.       prebuilt_encoding null ne {
  1791.         % Bug 689083.
  1792.         TTFDEBUG { (Using cmap 3.0 with prebuilt_encoding.) = } if
  1793.         prebuilt_encoding .invert_encoding .pdfmapchars
  1794.         /Encoding prebuilt_encoding
  1795.       } {
  1796.         TTFDEBUG { (Using cmap 3.1 with WinAnsiEncoding) = } if
  1797.         AdobeGlyphList .pdfmapchars 
  1798.         /Encoding /WinAnsiEncoding .findencoding
  1799.       } ifelse
  1800.     } {
  1801.       %
  1802.       % Adobe PDF spec says that in this case PDF interpreter should
  1803.       % map character codes directly to glyphs using
  1804.       % the cmap <00010000>. But we use PS interpreter to emulate
  1805.       % a PDF interpreter. Therefore we need to construct
  1806.       % a type 42 font, which requires an Encoding and a Charstrings.
  1807.       % We construct them with symbol_list, which
  1808.       % includes all glyphs from SymbolEncoding and additional
  1809.       % random names for 1-to-1 mapping.
  1810.       %
  1811.       % A real TT font may use a different characters than
  1812.       % the Symbol charaster set. Perhaps our code
  1813.       % will give a correct printing, because glyph names are not
  1814.       % important for symbolic fonts in PDF.
  1815.       %
  1816.       <00010000> .findcmap {
  1817.         prebuilt_encoding null ne {
  1818.           TTFDEBUG { (Using cmap 1.0 with prebuilt_encoding.) = } if
  1819.           prebuilt_encoding .invert_encoding .pdfmapchars
  1820.           /Encoding prebuilt_encoding
  1821.         } {
  1822.           % This is a case, in which an obsolete software could stupidly specify Macintosh Roman
  1823.           % for a random encoding. Particulatrly GPL Ghostscript 7.06 does so.
  1824.           % Trying to recover with 'post'.
  1825.           pop  % The table itself doesn't contain useful data.
  1826.           TTFDEBUG { (Using cmap 1.0 with post or .GS_extended_SymbolEncoding) = } if
  1827.           .charkeys
  1828.         } ifelse
  1829.       } {
  1830.         % This is illegal with PDF spec.
  1831.         (   **** Warning: Embedded symbolic TT fonts must contain a cmap for Platform=1 Encoding=0.\n)
  1832.         pdfformaterror
  1833.         % Apply the default algorithm. Hopely it has 'post'.
  1834.         .charkeys
  1835.         % check if the CharStrings dict contains glyphs needed by the
  1836.         % prebuilt_encoding otherwise try the 3,0 cmap.
  1837.     prebuilt_encoding null ne {
  1838.       false prebuilt_encoding {    % false means no missing glyphs
  1839.         4 index exch known not { pop true exit } if
  1840.           } forall
  1841.           {
  1842.         (   **** Warning: Encoding derived from 'post' is incomplete.\n)
  1843.         pdfformaterror
  1844.         % Try another cmap format 3,0 -- Adobe doesn't mention it, but does
  1845.         % use it apparently (empirically determined).
  1846.         <00030000> .findcmap {
  1847.           TTFDEBUG { (Adding cmap 3.0) = } if
  1848.              5 1 roll pop pop pop pop             
  1849.           prebuilt_encoding null ne {
  1850.           prebuilt_encoding .invert_encoding .pdfmapchars
  1851.           /Encoding prebuilt_encoding
  1852.         } {
  1853.           AdobeGlyphList .pdfmapchars
  1854.           /Encoding /SymbolEncoding .findencoding
  1855.           } ifelse
  1856.         } if
  1857.           } if
  1858.         } if
  1859.       } ifelse
  1860.     } ifelse
  1861.   } {
  1862.     <00030001> .findcmap {
  1863.       prebuilt_encoding null ne {
  1864.         TTFDEBUG { (Using cmap 3.1 with prebuilt_encoding for non-symbolic.) = } if
  1865.  
  1866.         % The character code in /prebuilt_encoding[] is not guaranteed to be
  1867.         % compatible with the Microsoft UCS2 TrueType cmap subtable.
  1868.         % If the glyphname is known by AdobeGlyphList, the charcode for the glyph
  1869.         % is replaced by UCS2 charcode from AdobeGlyphList. Otherwise it is left
  1870.         % as in /prebuilt_encoding[]. /.pdfmapchars should dredge them.
  1871.  
  1872.       /.allow_uniXXXX_glyph_names //true def
  1873.         AdobeGlyphList prebuilt_encoding .invert_encoding dup {    % <<AGL>> <<pbe>> <glyphname> <pbecode>
  1874.           pop                                                      % <<AGL>> <<pbe>> <glyphname>
  1875.           TTFDEBUG { (check glypname /) print dup =only flush } if
  1876.           2 index 1 index .knownget {                              % <<AGL>> <<pbe>> <glyphname> <AGLcode>
  1877.             2 index 3 1 roll                                       % <<AGL>> <<pbe>> <<pbe>> <glyphname> <AGLcode>
  1878.             TTFDEBUG { ( redefine codepoint by AdobeGlyphList, ) print dup == flush } if
  1879.             put                                                    % <<AGL>> <<pbe>>
  1880.           } {                                                      % <<AGL>> <<pbe>> <glyphname>
  1881.             TTFDEBUG { ( unknown glyphname, leave as it is ) print flush } if
  1882.             pop                                                    % <<AGL>> <<pbe>>
  1883.           } ifelse
  1884.         } forall
  1885.         exch pop                                                   % <<pbe>>
  1886.         TTFDEBUG { dup (<<\n) print { exch (    ) print =only (\t) print == } forall (>>\n) print flush } if
  1887.         .pdfmapchars
  1888.         /Encoding prebuilt_encoding
  1889.       } {
  1890.         % Likely this branch is now obsolete.
  1891.         TTFDEBUG { (Using cmap 3.1 for non-symbolic.) = } if
  1892.         AdobeGlyphList .pdfmapchars 
  1893.         /Encoding /WinAnsiEncoding .findencoding
  1894.           % WinAnsiEncoding is just a stub here. 
  1895.           % It will be replaced with one from font resource,
  1896.           % because PDF spec requires it.
  1897.       } ifelse
  1898.     } {
  1899.       <00010000> .findcmap {
  1900.         TTFDEBUG { (Using cmap 1.0 for non-symbolic.) = } if
  1901.     .romanmacdict .pdfmapchars 
  1902.         /Encoding
  1903.         prebuilt_encoding null ne {
  1904.           prebuilt_encoding
  1905.         } {
  1906.           /MacRomanEncodingForTrueType .findencoding
  1907.         } ifelse
  1908.       } {
  1909.         % Apply the default algorithm for using the 'post'.
  1910.     .charkeys
  1911.       } ifelse
  1912.     } ifelse
  1913.   } ifelse
  1914.   TTFDEBUG { (.pdfcharkeys end) = } if
  1915. } bind def
  1916.  
  1917. % <file> <is_symbolic> <Encoding|null> .loadpdfttfont <type42font>
  1918. /.loadpdfttfont {
  1919.   TTFDEBUG { (.loadpdfttfont Encoding=) print dup == } if
  1920.   /prebuilt_encoding gput     % for .pdfcharkeys
  1921.   /is_symbolic gput
  1922.   //false 0 .loadttfonttables
  1923.   .makesfnts
  1924.   tabdict /cmap known not {
  1925.     (   **** Warning: Embedded TT font lacks required cmap table. Using identity cmap.\n)
  1926.         pdfformaterror
  1927.     % Unknown (i.e. not 0 ) language ID brings in post table.
  1928.     % Fields: cmap_version, number_of_subtables,
  1929.     %  plarform_id, encoding_id, offset,
  1930.     %  format, subtable_length, language,
  1931.     %  256 bytes of identity mapping.
  1932.     tabdict /cmap
  1933.     < 0000 0001
  1934.       0001 D00D 0000000c
  1935.       0000 0106 0000
  1936.       00 01 02 03 04 05 06 07 08 09 0a 0d 0c 0d 0e 0f
  1937.       10 11 12 13 14 15 16 17 18 19 1a 1d 1c 1d 1e 1f
  1938.       20 21 22 23 24 25 26 27 28 29 2a 2d 2c 2d 2e 2f
  1939.       30 31 32 33 34 35 36 37 38 39 3a 3d 3c 3d 3e 3f
  1940.       40 41 42 43 44 45 46 47 48 49 4a 4d 4c 4d 4e 4f
  1941.       50 51 52 53 54 55 56 57 58 59 5a 5d 5c 5d 5e 5f
  1942.       60 61 62 63 64 65 66 67 68 69 6a 6d 6c 6d 6e 6f
  1943.       70 71 72 73 74 75 76 77 78 79 7a 7d 7c 7d 7e 7f
  1944.       80 81 82 83 84 85 86 87 88 89 8a 8d 8c 8d 8e 8f
  1945.       90 91 92 93 94 95 96 97 98 99 9a 9d 9c 9d 9e 9f
  1946.       a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 aa ad ac ad ae af
  1947.       b0 b1 b2 b3 b4 b5 b6 b7 b8 b9 ba bd bc bd be bf
  1948.       c0 c1 c2 c3 c4 c5 c6 c7 c8 c9 ca cd cc cd ce cf
  1949.       d0 d1 d2 d3 d4 d5 d6 d7 d8 d9 da dd dc dd de df
  1950.       e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 ea ed ec ed ee ef
  1951.       f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 fa fd fc fd fe ff
  1952.     > readonly put
  1953.   } if
  1954.   .getpost
  1955.   .pickcmap
  1956.   mark
  1957.   .pdfcharkeys
  1958.   .ttkeys
  1959.   /FontType 42
  1960.   /PaintType 0
  1961.   TTFDEBUG {
  1962.     (numloca=) print numloca =
  1963.   } if
  1964.   .dicttomark
  1965.   end end
  1966.   .completefont
  1967. } bind def
  1968.